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VY 
أ‎ a -حة الدذاترت‎ TE : Mm 
Publ1ıc Class Forn) جاك حجيط حصا تر اکا‎ 


Inherits System.Windows.Forms.Form 
Dim radius As Integer 
Const pi As Double = TY / Y 
F#Region “Windows Form Designer generated code " 
Private SUB FOEMY Load(BYVaL. sender A8 System. OD ject, BYVAL © A8 
System.EventArgs) Handles MyBase.Load 
radius 5 [Ap Eo ال آترة تطر تفت اذل فلك من"‎ *( 
En Sub 
PTI SUG EULCEONY_ CLILCKE(BVTAL SEnder Ab ODF ECE, BEVEL CE AS SYSTEM. EVENTATOS) 
Hand LES’ EULLONYACLIICE 
Dim mesaha As Single 


mesaha = pi * radius ^ 1إ‎ 
TextBox1l.Text = mesaha 
EHC Ub 


PFIVaTE SU EBUCEONYS CLLIECEK(BVSL GEnIEr £8 UR ECE, EVAL EKE SYSTEM EVENTAFGS) 
Halhdûlêéês BULLÛONY.CIILCK 
Dim moheet As Single 


IT ILI SILICA LIGOT I LI 


MOREE E TEE FS TES ا ا‎ 
TEXÎBOXY.. TExXL = molneet Cancel_ | 

ENC SUB 
End Class 


FÊGêÃê rikê 


PELTSES SUD BULCONT. CILCEK(BYTSL GENnOEE A8 SYSTEM. OBJECE, EVVEL € KE SYSTEM, EVENTAEIS) 
HHL LéES EUTEONYsCLLCKE 
DIM XK, Vy, 2Z Kê SIRO 
x = Val (TextBox). Text) 
y = Val (TextBoxY.Text) 
Lf RadloButtonY . Enabled 
Z = xXx + VY 


TFuüê Then 


ENC LE 

lf RadioButtonY'Y.Checked = True Then 
MET. 

ENC LL 

lf RadioButtonYT.Checked = True Then 
E E 

ENC LI 

lf RadioButtonst.Checked = True Then 
Z= x / VY 

ENO. TL 


TextLBoxl.Text = Str (Xx) 
TextBOxXY. Text GEE (¥) 
TextBoxYT.TextL = Str (Zz) 
End. Sub 
PEIVALEG SUB FOES, LOSI BYTSL SONIEE &F SYSTEM OBIECE, BYVEL € K8 SYSTEM. EVENTAEGS) 
Handles MyBase.Load 
End Sub 
PELATE SUR BULCEONYS CILLCK(BVESL SENE £8 OB ECL, BYVAL E AE SYSLEMLEVENTATOS) 
Hand lêëês BUtLonYT CLICK 
TexlLBox1. Text 
TextBOoxXY . Text = "™"™ 
TextBoxY.TexlL = "" 
e Sls 
ENG Cla 


n 


‘Text Editor ÙÊĞî zû rêje 
‘(HBL BDA #5 prin 
‘Odin arş š Dê Uê AOA ĞGÊA Check box .l 
ن:‎ 8 oYoNUŞCheck state 
oA 3tunchecked / Vî (BE23 Sze Checked 
BÛ ê 2? ZEĞNY kts BS) 2 Mlkndeterminate 


Uê FORO Ûë dîs 


Labell 


unchecked O IY 
Checked TextboxCcheckstate=C 
Indeterminate TextboxCcheckstate=& 


TextboxCcheckstate=checkstate.unckecked ٩ل‎ 


ŞUTextboxCcheckstate =true 
تضاف على الحدث لعدم تكرار الكود للمربع الآخر‎ 


FFIVSLE SUb CHECKEORY  CHECKREOCHaANGEA(EYVTAL SENIEF NS DULG ODDIE. El o AS 
System.EventArgs) Handles CheckBox1.CheckedChanged, 
lf CheckBox1.Checked = True And CheckBoxY.Checked = False Then 
Label1.Font = New System.Drawing.Font (Label1.Font, FontStyle. Bold) 
Elself CheckBox1.Checked = True And CheckBoxY.Checked = True Then 
Label1.Font = New System.Drawing.Font (Label1.Font, FontStyle.BOld Or 
EFONLSEVLELIEALIC) 
Elself CheckBox1.Checked = False And CheckBoxY.Checked = True Then 
Label1.Font = New System. Drawing.Font (Label1.Font, FontStyle. Italic) 
Else 
Label1.Font = New System. Drawing.Font (Label1.Font, FontStyle. Regular) 
ERC LE 
EHO Sub 


N NN سر‎ 


:Ûû Éã OMS GÊRA Radio button lı 
ĞCëz Ûû/ëğ ÃMLRLL § checked HAD 3O AG 


RadiobuttonCchecked=true or RadiobuttonCchecked=false 


FIIVEATS SUD. RSOLOBULEONY CHECKEICRANGEU (BYVAL SENE AS SYSTEM: ODTECE, EYVAL. 6-A 
System.EventArgs) Handles RadioButtonl.CheckedChanged 
Label1.ForeColor = Color.Red 
ENC Sub 
EFIVSTE SU ROGLOBUELONY CHECKEUChAaANGEOEYTSL SENIEFE A. SYSTEM ODOC, EVOL Ce £ 
System.EventArgs) Handles RadioButtonY.CheckedChanged 
Label1.ForeColor = Color.Blue 
ENG Sub 
PFL1vVatEe SUD. RaUl1oBUEEonY CheckedcChanded (BYVal SEeniéer A8 Object, BYVAL e & 
System.EventArgs) Handles RadioButtonYT.CheckedChanged 
Label1.ForeColor = Color.Green 
End Sub 


mm ¢ 


Combo box .IIl 


J r ا‎ 


ByVal e As 


FETAL TU EBULCTLON CILCREIEV EL CONOEE HB SYSTEM OD EEL, 
System.EventArgs) Handles Button1.Click 
Dim language As String 


Language = ComboBox). Text 
lf language = "Visual Basic" Then 
MsgBox ("excellent") 
Else EYaluıale my choIlzE 
MsGEOoOx ("Good™) 
EU LL 


ENCU SUB 
Private SUD Forms. LOS0(BYVaAL Sender A8 System. Ub ject, BYVAL € AE System. EveNEArFGS) 


Handles MyBase.Load 
LOMEDOBOXY.. SELECT InOoS = 


ENC Sub 
End Class 


Menus oÖilgãll sءslûill:Main‎ menu .IV 


دف چ + 


mn nm mm 


Ti 
open LErl+iî = س‎ 


clo5E 


VI NN AN 


Main menu XêP¥ KÛS ë % êyê hl 


Ea FRESE HOAKRUE/ROBy pe here KZA 3AN 
public Blain menu CÖÛÖRKbno difie r ÖÃAÃãQNOR GÊ GF §Z GHANI MD 


2-| ûpenFileDialog | Ê ZX Sot TT Ax 3v 7 يت‎ = oV 
#-| SaveFileDialog : Oo G2ê AFRGBSBÛ dE AMY AGkd 
lA] FontLialog ColorDialogI.ShowDialog () 
¥] Lalor Dialag 

E FontDialog1.ShowDialog () 
Ez PrintDialag 
rl PrintPreYismw Dialog 
| PrintPreviewControl 


ColorDialog)\.ShowDialog () 
Editor XX Gz 

f D/A | 10 4 BÛY ogi 0 9 2 RÖĞŞĞ D/A 10 % 0 3 £ 3Lê ا‎ E BËAD/EĞ 

Edit ?0¥ dag Rb eA AUMUS UKEGF § dA Properties Bê{Edit names Z 


names 

j kAÖ KEKÖKF Gj False BÛextbox auto size BA KE 

:HYÖ TOS 16 Ög dF QOR LêöSBêKDS È Gê open MZ TO GHD 

Insert Separator Qš FRE Ajö 28 URKREHY pêde ÃA? Ş dOEd' 

 HBLKEBHOAS XK I F3 F OED‏ ا 

: KS Û N hd /# dhÃû# Ğö Lèãdgs. F2 GA êş ë5 KêKOĞFS 3 § kd 


TEXT=&File 
open Ajp OG&hortcut =ctrl+o ZKMBEO 3N 2¥ URKSOQUHAINZAÊ OE Aö.E 


NAN Nm NN mm mm N NN 


DEKEY NBS A5 Image ZÃXEÛ 3Ö dêkê ÃÖO#Ka/Ezk ké § dê AöŠ.ë 
textimageresource=textaboveimage FOO 


PFIVAES SOD MENUITEM CLLCEEK(BYGL SENE AB SYSTEM. ODIECT, BYVAL € 
System.EventArgs) Handles Menultems.Click 
Dim df As New OpenFileDialog () 
df.ShowDialog () 
ENC Sub 
EFLIVALe CCUG MENUTTCOMY CLICKER IL SENlEer KE SYSTEM. UODIOCE;, BAL € 2 
System.EventArgs) Handles MenultemY.Click 
1f MenultemY.Checked <> True Then 
MenultemY.Checked = True 
MenultemA.Checked = False 
TextBoxl.Text = Format (Date.Now, "mm/dd/yyyy") 
ERC LE 
ENO Sub 
PEILVaAES Sub MEenüUltemn CLIECEK(BYVaAL SENdEE AS SYSTER:OB ject, BYVAL ©4 
System.EventArgs) Handles MenultemA.Click 
1f MenultemA.Checked <> True Then 
MenultemA.Checked = True 
MenultemY.Checked = False 
TextBox1l.Text = Format (Date.Now, "hh:mm:ss™") 
ENC 1E 
End Sub 
PELVaEE SUR MENUITEM CIILCR(BUVAL SENIEE 8 SYSLEMLOB ECE, BEL € 
System.EventArgs) Handles MenultemYT.Click 
TextBoxIl.TexlL = "" 
ENG Sub 
ELLUALS CU MENUITEM CLICK (BV aL. SONE 8 SVS ECE, BLE E 
System.EventArgs) Handles Menultem1‘.Click 
OBLICEEIORLEBELE O 
e Sls 
ENC Clas 


n "| 


NSR KeaZE KRG, rife 


Gan ÜÛR&ZE r ÛY &ûãj ËBÛ(click Ãšo Š) RéA? ¥ ÙÛRaE EBAGRSDN kk 
س ست‎ (BÛLoad CFHğo /Ö) št CEO NE K go 


label şbutton ãË cB fS] rhFëk 


EFA 11-JZ-ZUUU 


FUDLIC ULSSS FoEM) 
Private Sub: Forms Load(ByVal sender As System.Object, ByVal e As System. EventArgs) 
Handles MyBase. Load 


Label1.Text = DateString 
LabêlYT. TEXT = TIMESEELNG L0۸5 حدث التحمیل‎ 
End. Sub 


FEIVaTE SUB ‘BUCEONS CLILER(BVVAL SENnIEE AE OBOE, EVVEL E AS SYSTEM EVENTATOS) 
HANULSS. EBULEORY CLICK 


Me S4068060. SOW (* "على جه ورخ 2ة‎ 
EC. Sub 


PELL CUD BULEONT CLICK (BYVAL SENET AE UODIECT, EVIL E RE SOTO EVENTLAEIS) 
Hai lé BULLIONYCLLCE 
End 
ENQA Sub 
ENC. CLASS 


n \/ 


ĞÊĞ êş Êz j re 
label button /& &ştextbox Oo Amo Yooh) ODS 
1 Ö6 Û ÖÖU ZEY YM OnRextbox Û ê2 ûê Val yAÃGK 
ĞÊĞÎ ÊINextbox Ö êt dê str YÃGĞK 


الرقم الأول 


الرقم الثاني 


Public Class nategelkesma 
PFEIVaEG SUB EOULCEODN CLICR (BSL SENET AE SELEM. OBFECE, BVaL € 
System.EventArgs) Handles ButtonY.Click 
Dim x, Y¥Y, Z As Integer 
x = Val (TextBox1I. Text) 
y = Val (TextBoxY.Text) 


Z= x / VY 
TextBoxYT.TextL = Str (Zz) 
ANIC SUD 


: UM ŞGESizza ARES SEKAN KBOIRESÊĞ) rëRSÎNTnoe¥ KÊOĞE dêk 
rEOGK atê ¥ ر‎ BÙ Û8 Û.Û 
Mouse move BÛoad ÛĞEHğo /Š KY. 


BAgEOEGa.Dږ‎ 


Private SUD natege1xeana (Gusev) ay1 sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgsS aTITQdQLes Me.MouseMove 
Me.BackColor = Color. Brown 
ENC  SUb 


: HÖ Mouse leave /AD3/Ê ZF Û ã ê5 A\UE CSF 26 gr .d' 


Private Sub u o. sender As Object, ByVal e As 
System.EventArgs) Handles Me.MouselLeave 
Me.BackColor = Color.Empty 
End Sub 


mm / 


As 


As 


"ك اا اال 
تعوربكي االاتعي EEE ١‏ 


4 
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PUDLLG CLAS CaLC 
Dim op1 As Double 
Dim opY As Double 


DIM ZT AE SCLIN تونق االعول الخسايةة‎ 


PFIVaES Sub BULLION CLlcek{(BYVaAL Sender A8 SYSTEM. OD ject, BYVAL 


/يكتب خلف زر واحد ` 


BYVAL 


BYVAL 


ByVal 


EVVaL 


BYVAL 


EV VoL 


As System.Object, 
` کي خا وز ؟‎ 
&8 SYSTEM. OD JECT, 
` ۴ "یکتب خلف زز‎ 
ÃAs System. Object, 
ي ر ک8‎ 
As System.Object, 
”بكتي خلفه زز ۾"‎ 
As System.Object, 
"٠. کنب فة زين‎ 


AS SYVSTEM:Ob ec, 


System. EventArgs) Handles Buttonı1.CLick 
TexLBox1l.TexlL = TextLBox1l.Text + "¥" 
ENG Sub 
FEIVGLEE S00 BULCLONY1 CLLILCEE (BYVAL Sender 
System.EventArgs) Handles ButtonY\.ClLllck 
TexLBox1l.TexlL = TextLBox1l.Text + "YY" 
ENG SUD 
FFLVaEe SUB BULCLORYY CLICKEE (BYVAL Sender 
System.EventArgs) Handles ButtonIlY.Click 
TexLBox1l.TexlL = TextLBoxIl.Text + "YY" 
SAQA SUD 
PFIVaEG. Sb BULCIONIN CLICK (BYValL Sender 
System. EventArgs) Handles BULIEONYA.CLILEK 
TexLBox1l.TexlL = TextLBox1l.TextL + "¢" 
E GU 
EFI TOD BUCLONYT CIICKIBV EL Sender 
System.EventArgs) Hahdlés BULIONYT.CLILCEK 
TexLlLBox1l.TexlL = TextLBoxIl.TexlL + "o 
EDC Sub 
PrFIVaES SU BULCLONYE Click (BYVAL. SEendeF 
System.EventArgs) Handles Button! ¢.ClI1ick 
TexLBox1l.TexlL = TextLBoxIl.Text + "1" 
ENG Sub 
PFITGCE SUS BULCEONYS CILERIEVVOL SENOGE 
System. EventArgs) Handlés ButtonYo:.Cllilck 


e q 


A5 


8 


As 


A5 


A8 


8 


TERT EONTL TELE 3S TESIPORLICOLT EG TT TES SOTE 


End Sub 
FELLATE SUD BUCEONY® CLIICEIBVVEL SENOEE AE SYSTEM. ODTECE, BL 
SVSEEM.EVENEAFEGS) HINOLES BULLONYSSAUCLLORK 
TERTEORIA TORT = TEKTEOL ICR E AT FU SSE 
EC OU 
FEIT TUG FULTON YI ICE{ETTOL SENOIEE ABE ST STEM ODI ECE, BL 
SVSEEM.EVenNtLArEGS) HEnNQOLEeES BULCLONYS.CLLCK 
TEXLBOS TEKE 2 TEXTBOOK TESL EG AT TO ST A 
ENÛ SUB 
PIEIVIES SUD. BULCEONYT ClIICK(BYVIAL Sender AF SYSTEM. OG ECE, Bal 
System.EventArgs) Handles BULtOonNnY* CLICK 
TeXTBOKYZIGESL = TEST EBORTSlLIEORT EG ENT FSF ES YT ME 
End Sub 
FFIVELE SU BULCTONTY CLICKE(BYT AL Sender AS SYSTEM: ODTECE, BIT 
SYSTEM. EVENntEAEGS)  Handlés BULLONTI.CLILCK 
TEXTEORTTEXL 3 TEKTBOXY. TOLL 4 TT ° INN ۆۆ‎ a 
Enda Sub 
FELVAEG SUBD BUCEON _ CLICE(BFSL SEnNIEr AB SVSLEN.UBTECE, By aL 
SYStEEM. EvenEAréGs)] Handles BUEEONWLCILIIEKE * # j "بات الق‎ 
OP) = Val (TextBox1.Text) 
TextBox1.Clear () 
EE 
Encl Sub 
EFIVIES US BUCLODT CLILCK (EFL GENIE AE SYSTEM. OBI ECL, BY aL 
System. EventArgs) Handles BUttOoONT CLICKEE *"* = "کین اق زو‎ 
Op) = Val (TextBox1.Text) 
TextBox1.Clear () 
f = II __ 1 
ENC Sub 
PEIVAEE. 3U BULLION CLLEK(BYVEL Sender A5 SYSTEM. ODTECE,. Bal 
SYSTEM. EVEntArFGS) RHandlss BüuttonT.CIickKE °* #7 رتب حل ;و‎ 
Op1 = Val (TextLBox1.Text) 
TextBox1l.Clear () 
f= "/" 
ENC Cub 
FTIVSEE SU  BULEONS CILCK{EFVaL SENSE AE SYSTEM. ODI eCE;, BTL 
System:EvenNtTArgs) Handles BUttON.CIICGKE * * yj كى غلاق‎ 
OP) = Val (TextBox1.TextL) 
TextBox1.Clear () 
LER 
End Sub 
FEIVAEE SU BUCEON CICK (BYVAL SENET 28 SVL. ODI ECL, Ba 


SYSLEM. EVEN CAFES) BENOLES BUCTONLCLLCEE"™ dola yg 
OPY = Val (TextBox1.TextL) 
TextBox1.Clear () 


lf f = "I+" Then 

LEZXLEOKI LICL ZOO. FE OT 
ENG LF 
LE. Lo — Fa ThE 

LEXLEBOXI ICT 32 o0 2 اوو‎ 
ERG 1L 
LL f =. JF Then 

TextBoxl.Text = OPI / op'Y 
ENC If 
[L.1 3 WE Then 

TextBoxY1.Text = OpDY * Op! 
ERC Lf 

ENO. Sub 


PELATE OUR BUCE CILCER(BV EL SENET AE SYSTEM. ODI ECT, Bal € o 
SyYSEEM.EvVenNTAFTS) HaNOLSS Ello Y :CL1SK* كن غلك رر اغخار الايف4‎ 


Dim sqr As Double 
Sqr = Math.Sqrt (TextBox1. Text) 


LEXTEOXT1. LEX = BOE 
End Sub 
PFLAG SUD BULCEONAS CIE (BYTEL SEnNIErE AE SVELEMLODI ECE, BEL € 
SYSEEM. EVONTAEGS) BONOLES BUELONSSCLICE™ ق ورو ار اأ‎ 
Dim r As Double 
. = TEREBONY. TERE ° OO F7 TT 
TexlLBoOxXx1. Text = r 
EC Sub 
PEIVAES SUD BUCLODNT CILCRIBTSL SEnOEFE. A SYELEM.ODIECE, BAL € 
System.EventArgs) Handles Button1.Click' بaرضؤفاl‎ رj‎ فلlۓغخ آیکتب‎ 
Dim 1, fac As Integer 


fac = 41 
For 1 = 1 To TextBox1.Text 
TAG = TAG F1 
Next 
TextBox1l.Text = Str (fac) 
ENC Sub 


EFFING Su EuUlCEonNê CIILCK(BYTaL Sender A SVSLENSOD ECE, EYVAL E 
System.EventArgs) Handles Buttono.Click* سيٺژl‎ رj أيكتب خف‎ 
Dim x As Integer 
x = TexlLBox1. TexL 
Dim a As Integer 
a = [InputBox ("add") 
Dim y As Single 
y = Math.Pow (a, KX) 
LEXTEBOKXY TEXT 3 vy 
EAC! Sub 
EFEIVaLe CUD SUCEONYYS CLLCREV SL. SENOEE AE SVT ODI ECL, BV OLE 8 
System.EventArgs) Handles ButtonIlYY.Click 
TEXTLBOE CLE mas J 
ENG Sub 
ENG Cla 


| | 


5î ã) Ka aaay Tu 
J ê BINARHE THE ÖĞR vBKCÈDZ j & ã ® Z DEKÊ web browser ¢ ã 
ZCOM /FREZ customize toolbox Zğ 33 êa Z GBBÛÙ ¥ dE a KkbieR RROGE 3 


124 = AN 


web browser ¢ all op 


Ê The page cannot be displayecl 


The page yYol are looking for I5 currently unavailable, The Web 
site might be experiencing technical difficulties, or you may need 
to adjust your browser settings. 


Please try the following: 


s» _licle the Refresh button, or tr¥r again later, 


» If yol typed the page address In the Address bar, malke 
sre that It I5 spelled correctly, 

se To check your connection settings, click the Tools rnenu, 
and then click Internet Options, n the Connections 
tab, click Settings, The setinas should match those 
provided by your local area network FLAN} administrator or 
Internet serYIce provider [ISP], 


PELL CUS BULCTONY CLICK (BVVUGL GENO ABS SYSTEM. ODI ECE, BYVEL € RB 
System.EventArgs) Handles. BUttTEONnY.CLILECK 
AxWebBrowserl.Navigate ("http://www.Ggoogle.com™") 
EC OUb 
PrEILToTLS TU BULLONT CLIICK(BTGL GENO. ABS SYSTEM. OD ECE, BYVAL © 
System.EventArgs) Handles Button'Y .Click 
AxWebBrowser1l.GoBack () 
ENO Sub 
PEIVALS Sub BUCEODNY CLICR(BYVAL Sender A8 SYSTEM. ODIECE, BAL e8 
System. EventArgs) Handles ButtonY.Click 
AxWebBrowser1.GoOForward () 
EN. Sub 
FFIVaLE Sug BULCEONE:CIIERK(BYVSL Sender AS SYSTEM. ODJECE, BYVAL e 8 
SYSTEM. EvEnNtArFGS): Halidlés BULLONESCLICK 
AxWebBrowser1l.Stop () 
End. Sub 
FELVaAES SUB BULCEONE CLTER(BYTAL SENET AB SVELEM.OBDIECL, BV aAL CE 
SyYStém.EventArgs) Handles Buttono. CLICK 
AxWebBrowser1l.Refresh () 
End Sub 
PERIL TOS BULLON. CLILCKIBY EL SENE AES SYSTEM. ODI ECE; BAL © 
System, EventArgs) Handles BUtIEON TL. CLICK 
AxWebBrowser1l.GoSearch () 
ENC. Sub 
FFI OUD PBUCLONY CILCK(BEVIGL SENUET AE SVSTEEM.ODI ECE, BYL CGE 
System.EventArgs) Handles ButtonY.Click 
AxWebBrowser1 .GoHome () 
EH Sub 


| ۲ 


FELT Sub BUCLONT CIEILCERBYTEL Sener AE SYESEEMLUODIECT, BTL € AS SVSCEMEVENEAEGS) 
Handles BUlTORYT :C6L1CEK “aj زر‎ 


End 
BHC SUB 
PFrIVaEe SUR EBUCEONS CILCRK(BYEL SENE AB SVELEC ODI ECT, EVAL E 
System.EventArgs) Handles ButtonY'.Click "` خلف رر خدنل‎ 


TE TEOT ICEL SS ET 
TESLEOKT LON SE 
TESTEONT Ta lO ST 
TEXLEOEL ION & eT 
TESTEONDLICOIL SS FT 
TEXTEOXl LEL SS e 
LabelY.Text = "" 

LabelA. Text 
LaADEl1.TEKL = 


کي يضع مؤشر الماوس اح ال TLEREEOR EOC ak‏ 


ص 
= 
e‏ 
e‏ 


End Sub 
FFLVaTEE SUR BUCLCONY CLLEK (EVVEL SENOET AE SYETLEML ODI ECE, BEL ECE 
System.EventArgs) Handles Button1.Click ` خلق. ري اخشب‎ 


Dim d1, dYf As Integer 
Dim m1, mY As Integer 
Dim y1, yY As Integer 


LI TEeEXLBOK\. TORT = FOF TESLEBOKT 1O = WF OF TERIEBORT. IOSLT = TE UOT TERT OK lo = 
"™" OF TEXLBOSo. TERE = "™ OF TESLBOKT. TEXTE = "FT Then 
MsgBox ("Enter Date In all Texts") 
ILL Ub 
ENQ. LL 
d1 = Val (TextBox1. Text) 
dY = Val (TextBox. Text) 
mY) = Val (TextBoxY.Text) 
mY = Val (TextBoxo.Text) 
y1 = Val (TextBoxYT.TextL) 
) 


yY = Val (TextBox1. Text 
lf y1 < yY Then 
MsgBox ("Enter the True Date") 
RELL SUE 
ENG. LL 
If d1 < dY Then 
CAY SE QdYy. F#E F4 


MI = mi = 1 
EHC TIL 
If mI < mY Then 
mi = mı + 1۲ 
yJ) = y1 = 1 
EO DL 


LabelY.Texltl = d1 = df 
LabelA.Texlt = m1! = mT 
Label. Text 

ER. Su 8 3 
PTI SU POEM DOSE TSL SENE AE SVSLCEMOBDIECE, BEL © KE SYSTEM EVENTAEGS) 

Handles MyBase.Load 
TextBoxt.FOoOCUS () 

ENC Sub 


1 
kd 
1 
tk 
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Ya CE G rit 
‘E FOI indows media player Yj ãûê ele e 
Customize toolbox ÃQğ J 3 ayê Š/ dÃû# 28 dgi kê Û. 
کة چن‎ BÛRÊ ÇÊ windows media player ÃRëCOM /EKGCdD,.C 
Ci kö AZ šêRêPY $ ê .D 
OR 3s AKUE] niska rike KËSér § št? ¥ Opefiledialog $ ãZF Û.d' 
ا‎ 


: HEGER; RA  Z iç š4 dÊ KBA_ĞŠ ZF? § menu strip BIZ? Û.D 


PUBLIC CLaS8S FOENMY 
Private SUD J o f OTOOLSECEIBMenULEeM. CLITLEK (ByVal sender A8 
System.Object, ByVal e As System.EventArgs) Handles 
و لل‎ ê A OOLSEELDMENUITEM. CLICK 
OpenFi1leDlalog1.ShowDlalog () 
AxW1indowsMediaPlayer) .URL = OpenF'i1ileDlalogI1.FlleName 
EN OU 
FLITE CUD = ÛğÈğÈ  .  XTOOLOLELPMGNUTLEM. CILER(BYTSL SENCEFE A8 SVSTEM.OBFECE, 
AE SYSEOM. EVENEATIS) HOMIES e jjğÈ- STOOLSEEIOMERULEEM. CLICK 
End 
EH. SUD 
End CLASS 


ByVal e 


| £ 


` i 
GDEECÎ KEšéAêkLEÖ .C 
font Dialogş Color dialog BAO ZF Û. 


FFIEC SUD EULCTLONT CILCKCEYTSL SENIEE AES SYSTEM. ODIECE;, BYVAL E KS SYSTEM. EVENTAEGS) 
Halid Lês EuLtonY. CLICK 


FONtEDLIAaLOGY..SHOWCOLlOE = True 
FonNtDLaAlogY.. ShowDilalog () 
WIEN TEXTBOX 
EON = FONLCDLILOOTEORNL 
4EOEECOLOE =- PONEUDLALOOY .COLOE 
ENQA WIER 
Bnd Sub 
PFIVaEG SUD BULCEONT CLICK (BVVaL Sender A8 
System.Object, ByVal e As System.EventArgs) Handles 
BUELONTSULLEE 
COolorDIalogY.ShowDlalog () 
TEXEBOSI A EOCECOLGE = COLOTULOLOTO TS LOLOE 
Ent. Sub 
PEIVAES OUD BuULLonE CLIILEK{(BYVaAL Sender A9 


System.Object, ByVal e As System.EventArgs) Handles 
BULEONELCLIGEE 


Dim m As StrING 
,"ابه تش" ,"اة الص أك ود ااانا = س‎ 
TextBox1l. Text) 
LE TEIM (IR) = FF They. EET SOUL 
TextLBox1.TextL = m 
ENCU Sub 
FFIVSEE SU EULCLONT CLLCR(EYTAL SENCEE RE SYSTEM. OBTECE, EV RL e 
System.EventArgs) Handles ButtonY.Click 


TextBox) .BorderStyle = Windows.Forms.BorderStyle.None 
EHC. SUD 


BENQ CLASS 


ZÊ EKÛKK Û ik? ¥ daî BRE aft. AÖ .Û 
ak EOIN OGRESHE/O 1] dC 
سس‎ context menu l8 ã.ێD‎ 
context OES Ö 2ÈÖ 3ÖN dbD..d' 

menu=contextmenuC 
HOA ZY BASAj#EDê .D 


TextboxCtext=” ” 


lE| ContextMenu1 


| o 


EFFIVGEE OU FOS LOSO(BYTGL SENE AS SYESLEM.ODIECL, BUELL. AE SYSTEM. EVENTATGS) 
Handles MyBase. Load 
Dim i1 As Integer 
FOF 1 = 4 To. 1 SE — 
LIStBOx1I.Items.Add("word" & 1) 
Next 
End. Sub 
FFIVAaES SUB BULCEONS CIICE(BY SL Sender A8 
System.Object, ByVal e As System.EventArgs) 
HANOLES EULCEONYSSCLLCE 
ListBox1.Items.Add ("new item") 
ENC Sub 
PEILTOTS TU BULLONT CILCK(BYGL SENOEE. AB 
System.Object, ByVal e As System.EventArgs) 
Handles ButtonY'.Click 


ListBox1. Items. RemoveAt (ListBox1.1ltems.Count () = 1) 
EMU: SUB 
Private GUD BUCTONT CLIILCKIBYTSL Sender Ag SVSLEM:OD JSC, BYVAL e 
System. EventArgs) Handles ButtonYT .Cli1ck 
LLISLBORY.SOFELEEGd 3 TEE 
EN :SUb 


FFIVGLE SUG BULCLONE CIICE(BTTaL SEnder AE SVSTOMSODIECE;, BEVVL CE 
SVSLEM.EVENTArgs) . Hanidlés BULEONE.CIIGK 
ListBox1.Items.Clear () 
ENG Sub 


mmm AN 4 


open filedialoge  @Qã.C 


— “a^ AX AN 
LL 


Multi line #RPoëÛÎ qÛ cğÃhÃQê .ë 
CEO /EŞã MšB ÃQã .Ù 


EFFI SUD PULLONY CLICK (BYTSL . SEnder AE SVSTEM.ObIECT; EVVEL E 
SVSLEM. EVENTAEGS) Band lés BULLION. CILEGK 
Dim t As System. 1O.StreamReader 
With OpenFileDialog! 


LILLE = TOE LETE TILT 
¢ LHLELALDLECECEOEY SS ToT 
ELLIO = FEN TILE (LTT ILE ISL LILLE IT 
„EFLLLEEINIE = 3 
+4 SHOWDLELOG O 
End With 


L = New System.1O.StreamReader (OpenFileDialog). OpenF'ile) 
TextLBox1.Text = t.ReadToEnd 
End Sub 


ğ hêş] rhe 


4 


Rich text DOX Lê .C‏ ر حاثظ الصلضات 


Openfiledialog,Savefiledialog 


FELTELE SUD EUOLTONS CLICK (BYTEL SENOETE RB SVT BICC, BLE TE 
SYVSLEM.EVENTLArFG8S). Honûlés BULEONI.CILERK 
With OpenFileDialog! 


SUELLLEL = FEET TILES (FELE ALE IEICNLES TLIC LEL ELL 
.FileName = "'" 
SIDILELALDLEECEOEY = HoT 

End With 

If OpenFileDialogIl.ShowDialog = Windows.Forms.DialogResult.Cancel Then 


EXILE Sub 


Select Case OpenFileDialogI.FilterIndex 
CEE 3 
RichTextBox1.LoadFi le (OpenFileDialog .FileName, 
Wındows. Forms .RichTextBoxStreamType.PLailnText) 
QB 
RichTextBox1.LoadFile (OpenFileDialog1.FileName, 
WNIROQOWS.FOEMS.RICHTERTLEORSTLEEAMTYVEGEL.RIChRTeSTE) 
End Select 
ENG Sub 


FEISS Sub BULCCONT CILCE(BYT SL Sender RE SYSTEM. OBDI ECL, BEVEL e 
SYStem. EventArgs) Hanidlés BUTtIONY.CIIECK 
With SaveFileDialog! 


sEILEeT =. TLOSE FILE (FLTELI I LLELILCICHEESLI1ILE (LELE | ELIT" 
.FileName = "untitiled" 
. SHOWDLaALOG Û 
EC WILh 
Select Case SaveFileDialogI.FilterIndex 
Case 1 


RichTextBox1.SaveFile (SaveFileDialogI1.Fi1leName, 
WINOOWS.FOEMS.RILCHTEXTBOXSLErEEeEamMTYpê. PLaInTEexL) 
CaS 
RichTextBox1l.SaveFile (SaveFileDialog1.FileName, 
WILHOOWS .FOEMS.RICHTENTEOKSTEEEAMTYGE.RILcChRTEXE) 
End Select 
ENO: Sub 


e | ۷/ 


التعامل مع 10 ۴1٠‏ 


j YKÊBŞASSŞ dk zf cê DIZ HON cockş Ea êÈ pîj riê 


پاي 


FriwateE Hub EurtTtonl LIIZEIBFTWal 5eEnAer A3 D1 


FT: LESSON ILSE " 
EL CEEET\ FT. ECEET 


TIiTH iHpenHF 
- ITrHıiLialDiFEZLOFT = 
-FilLtLeEr = TT ex LF1i1lre 
-SGhHhoOuDIialot | J 

EHA Uir 


TexTBoxml. Text = IW.FileE.FEaAMLLlILITExNT (per | 


Eri 5b 


Frimwate Dub BEBuTCTOoOnNnzZE LIICZCEIBFWal 5SeEnNnAer As B1 
are F . Fi1llLer = FFFexLFlleE {(™.LCELYI | FT .LHEL™ 


TexLEBONKN ILI. TerlC] 


DarEF . ShowDialod li j 


Dir Fm A= SLCFEFEIHH = Batre F F1 lela 


LI. F1le. UF ILEA]1 1 TEXT [(FM, 
EA Sub 
Era E Iass=s 


mpDĞê rş št KE rije 


NNN 2 O " 


A 0 HE 
şmenu strip FUERA 
: HO qÛ Dê} 0B kgaUGÊ c5 


^ AN ^ 


فة تة ةة وتە قةت 4ة ةن 


TOOL SEET 


Customize toolbox ÃDã J ê yê È/K dA 2¥ dgi êRêB8 Û.di 
J aê BUZ ÇÊ windows media player ÃQêcom /ERdb,.Ë 


Opefiledialog G} Qã .ë 


ادت ات النحكم 
نخير خلفية النموذج 


۳ تشغیل ملف 3م" 


لل روج 


Ea penFilebialag1 a 


Fa rml.yb#- Form1.¥b [Design]* | 


1 اتذات التتكحم TET‏ 


w_oantexEMenuSErif 


ا 


= MerSErip Î : a ToolSErip 1 ۰ [E _ontexEMenuSErip 1 


[ 


| xaqan 1 f | 420*3 1an1a5 


PLIST CUD Sac EIOOLSEEILOMENUL TEM CLICK (BV UOL SENOEE AS SVSTEM. OD JECT, BL E € 
System.EventArgs) Handles backToolStripMenultem.Click 
With OpenFileDialog! 


ELLLEE = TOIT COLE I FLOLT|] BMG OMDB TDM 
IMLLLSLDIEECIEOEY =3 Tor TT 
.FileName = "" 

End WICh 


If OpenFileDialogIl.ShowDlialog = Windows.Forms.DialogResult.Cancel = True Then 
ERLE. SUD 


Me.BackgroundImage = System. Drawing. Image.FromF'ile (OpenFileDialogI1.FileName) 
ENC Sub 
EPIVAEE SU TOOLSLELBLEADELE CITLCERE(EYTSL SENCOEE: AE SVSLEMLODIECE, EVOL € Bg 


SVStEM.:EVEeEnNTAEGS) Handles TooLSTELOLabelt.CLICGKkK 
With OpenFileDialog! 


.Filter = "gif (*.gif) |*.gif| bmp (*.bmp) | *.bmp" 
SILRMLLILSALDLEECLOLY = ToT 
.FileName = "" 

End WIth 


If OpenFileDialogI.ShowDialog = Windows.Forms.DialogResult.Cancel = True Then Exit 
SUD 


Me.BackgroundImage = System. Drawing. Image.FromFile (OpenFileDialog1.FileName) 


ENO Sub 
PELE UD EULCEONT. CLLEK(BY AL SEnIEFE A8 SVSTLEM.ODIECE,. EAL € 
System.EventArgs) Handles ButtonT.Cli1ck 
With OpenFileDialog! 


PFLILLEE = WOITO TL GILEI I .OLT, DMG MOTI DT 
LNLLIALDLEECLOLY A VET 
.FlileName = "" 

ENG WIE 

If OpenFileDialogI1.ShowDialog = Windows.Forms.DialogResult.Cancel = True Then Exit 
وات‎ 
Me.BackgroundImage = System. Drawing. Image.FromF'ile (OpenFileDialogI1.Fi1leName) 
EOC. SUBD 


ELITES CUD ALE TOOLSET IDMENUITEM CLILER(EVTEL SENET AS SVS. OB FECE, BYUAL @ 
As System.EventArgs) Handles iuidlzyéiة:ToolStripMenultem.Click‎ 
With OpenFileDialog! 


FILLET = TOF STOLL LOLE| BNO ONO I SBM 
LIL ELIOLDIEEOLOLY — WOT 
.FlileName = "" 

End’ WIth 

If OpenFileDialogIl.ShowDlialog = Windows.Forms.DialogResult.Cancel = True Then Exit 
SUD 
Me.BackgroundImage = System. Drawing. Image.FromFile (OpenFileDialog1.FileName) 
ENO Sub 


FEISS SUG EULEONS CLIICKIEYTaSL SENOGEE A&B SYSLOMOSJECE, EVVEL © 
SVStEEM.EventArgs) Handles Button: .CIIEK 
If ColorDialogIl.ShowDilialog = Windows.Forms.DialogResult.Cancel = True Then Exit 
Sa 
Me. BaCKCOLOE = COLOTDLALOT YY :COLOE 
End Sub 
FELAT SUR TOOLSEFLDLGDELYS CLIILCE(B VAL SEN ler KE SVELEM.OBTECE, ELE E 
SVStEmM. EvVEeEnNtAEGS) Handlés TOOLSEEIDLaADELT CLICK 


ت ې | س 


Erid 
End Sub 
PELATE SUD BULCEON. CLICK (BVTEL SBENOET ABE SVELEML ODI ECE, BEL € 
SVStéM.EVEnNTArFGS)  Hanhdlés BULIONY:CLILEKkK 
End 
ENO SUbD 
EFLLTALS CUD GNOTOOLSTEFIPMENULEEM CLICKEE aL SENOEE AE SYSTEM. ODT ECL, BEVIL © A8 
System.EventArgs) Handles endToolStripMenultem.Click 
lel 
ENO SUB 
Private Gul TOOGLSEEFIpLSDELT CLIILECK (BYVAL Sender A8 SYSTEM. Object, BYVAL € A 
System. EventArgs) Handlées ToolStripLabelYT.Clilick 
OpenFileDialog).ShowDialog () 
AxWindowsMedlaPlayer).URL = OpenFileDialog).FlileName 
ENC Sub 


FFIVSTE CUS EULLONT CLLCR(EYTAL SENCEE RE SYSTEM. OOTECE, EVVEL e 
SYSTEM. EvVENtArEGS) BHanidlés BULLONT CLICK 
OpenFileDialog).ShowDialog () 
AxWindowsMedliaPlayer).URL = OpenFileDialog1.FileName 
End Sub 
PELATE SUB MOTISOLSECEILpDMENULTLEM CLLER (EYL SENOEE EES SELEM. ODT ECL, BEAL © 
System.EventArgs) Handles slêélıiùiToolStripMenultem.Click 
OpenFileDialog).ShowDialog () 
AxWindowsMedliaPlayer).URL = OpenFileDialog1.FileName 
End Sub 
PFIVGTEE CUD ENOTOOLSTELPBMERUIEEMY CIICE (BV UEL SENIEE AE SVSTEM. OD FECT, EVOL E 8 
SYSEEM, EVENTCAEGS). BENOLES as TOOLSLEELDMENULTCEMY SCLICR 
End 
ENQA. SUBD 
PEILVEES SUD MpTISOLSTELBMenRULTEeEM CLICK (BYVAL Sender A8 System. Object, BYVAL ê 48 
System.EventArgs) Handles MpYTToolStripMenulIltem.Click 
OpenFileDialog).ShowDialog () 
AxWindowsMedlaPlayer).URL = OpenFileDialog1.FlileName 
EI SUD 


[ya IOOUnE 1 اک‎ |] Yraın El | i 2 
û Hodule Modulel Console a ıcatlon 


Sub Mainlj 


LOnHSOlE.WrIitELInE | "juz gle". Length] 


LORHSOl1lE.,.VWUFiTtELinE "ali1 ha3z3zan". ToUpper | 


LOnNSDlE.VWFiItELineE "ALI HASBSBAN". ToLovwer | DOS GDF] nëS BAŞ 


LOHSOlE., BEaAAL inE | 


End Sub 3 € az -_ vv 
End Hodule ا‎ Console EfskADa CC 


1 
ALI HAûASSAH : 1 
ali hassan Application 


+ ş§ (f 3agËxêZ BAgEOWEŞê .& 
Ka kEOSKKÊ ÊK 
. Rk WoO BAÃk ESAS HkCGiconso1e .ReadLine () 
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UA G3 


isual studio ëééé ZMenu stri 


F ıl ۍض‎ E ıt F cGrro aE ےا جر ہے‎ 


ج ([8 4036 


FELVAES SUB Button) CIIER(EVAL Sender AF SYSTEM: OB ec, ByVal e As 
System. EVENtEArEGS) HsliCûlés BULEONY.CIIECEK 
Me.ListBoxY1.Items.Clear () 
Me.PictureBox1. ImageLlLocation = "" 
TOL aC founlmage As SEEING 1 
Mv. COMODUTEE.FL1leSYstem.GEeELFLLesS (MY. COMBpUtEEEF.FLLESVSTEM.<SDECLALDILEECTOFLIES.MYPICEU 
FES; FILELO.SEQaECNOPDLLONSEAECNTOSLEVELORLY, Tev GITT, FDO” 
Me.ListBox).ltems.Add (founImage) 
NET 
EM. SUE 


PEIVaLê .SUD LISTBOxXY SelecLEIIAdexXCHanGEeEIBYVAL Sender A48 SYySTLEeEn:.Ob ject, 
ByVal e As System.EventArgs) Handles ListBox1.SelectedlIndexChanged 
Ec. PICLUFEBORN eG IMSGELOCS ETON SS MEGULSTEORILOCLECTEOTEEN 


ENG Sub 
EOTTTL 


EOL 


Documents and Settings1AûdrmninistratorMy Doc #4 
Documents and Settings Adrministrator ly Doc 
LM Documents and Settings1 Administrator" 
Li Documents and Settingsî Administrator ly Docı 
Documents and Settings Adrministrator ly Doc 
{Documents and Settings1Aadrmninistrator™y Doc ™ 


تجمبل الصورة 


ا 
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PELINE SUD CaSCaQTOOLSTEIGMENUL Cem CLLCER (BYVAL SENE AS SYETEmM. OBJ eC, BFL € © 
System.EventArgs) Handles CascadToolStripMenultem.Click 
Me.LayoutMdi (MdiLayout.Cascade) 
End Sub 
PFFLVaEEG SUD LIELOAROEEORTOOLSTETOMENUTEEM CLITER (BYVAL  EENOET AE SYSTEM. ODI ECE, Bal 
é& As System.EventArgs) Handlés TiéelOHOFZONTOOLSTEELpBMenuUltem. CLICK 
Me.LayoutMdi (MdiLayout.TileHorizontal) 
ENC SUBD 
FCI TU TILOVEFTOOLSTEIOMENUTLEEM CLILER(BVTSL CONE AE SYSTEM. ODIECTE, BELE 
As System.EventArgs) Handles TildVerToolStripMenultem.Click 


۲ | 


Me.LayoutMdi (MdiLayout.TlileVertical) 
EI SUB 
PELVaTEG SU AULCOAETENTETOOLSTEIDMERUEEEM CIICR(BYVAL EEenNIEF AS SYSTEM. UDIECE, BIVA 
e As System.EventArgs) Handles AutoArrangeToolStripMenultem.Click 
Me.LayoutMdi (MdiLayout.Arrangelcons) 
End: Sub 
FLITE TUG FOEMIIOOLSTCEIpMENUTEEMN CLILER(ETVAL SENOEE AS SVESTEM ODI ECT, BOVEL ECE 8 
System.EventArgs) Handles FormY'ToolStripMenultem.Click 
Dim a As New Form! () 
a.MdiParent = Me 
a. Show () 
ENG SUD 
PLIVaAEê SUD FOrMETTOOLSEELEMENUILLEM CLLCEE(BVVAL Sender A8 SVSTeM:OBJEecE;, BYVal © A8 
System.EventArgs) Handles FormeTToolStripMenultem.Click 
Dim b As New Form" () 
b.MdiParent = Me 
De SNOW (0) 
ENG. SUB 


النصوذج الأول 


النصودذج التانيي 


mY Ym 


برناصج حساب الدوال الرياضية 


مجلومات جن جهازلك 


برنامح تجنيذ الجضصر 


الذاكرة الاقتراضية الحتاحة |1397556522740 
ا الذاكرة الحقيقية الصتاحة 177741824 
ES‏ الذاكرة الذفتراضية الكلية Z147T3525TE‏ 
الذاكرة الحقيقية الكلية 535265780 
بيثة نظام التشتيل Win32NT‏ 
a‏ 

Microsoft Windows XP Prt اسح نظا التش جيل‎ ۴ 

۰ 

wla 
j ÖZ, ڑ5‎ 


PFLAG SUE ilj alal LI TOOLSEELDMENULEEM CLILEE (BYVAL SENE 
System.Object, ByVal e As System.EventArgs) Handles 
راي خسايالكو الالرتاضية‎ 1001p Menu tem. CLL Ck 
second. Show () 
ENMa SUB 
EELS SUE OFLA AFLRTOOLSEEILBMENULEEM. CLIERLEV AL SCENIC AE SVSTCEM. OB ECT, 
ByVal e As System.EventArgs) Handles djlqz<igة:lnglanToolStripMenultem.Click‎ 
LLU SION O 


End Sub 


PELIVAEE SUD jell ely ITOOLSLEILBMENUTEEM. CLIILER(BYEAL SOeNnIEE A8 SVSTEEN:OB eC, 
ByVal e As System.EventArgs) Handles رJagalIlدııيدzaتagliyرçToolStripMenultem.Click‎ 
age. Show () 


mY 


Enid SUD 
PELATE SUB EULLoONnT CLIILCEK(BVTAL SENI AE SVSTEM.ODTECE,: BYVAL € A8 SVSTEM.EVENLAEIS) 
Handles ButtonYT.Click 


End 
Erf Sub 


FrIVSLe SU EUTLONT  CLICRK(EVTSL SENCEE AS SYOLEM.ODTECE; EVVEL E 
SysLem. EvVEnNLArgs) Handles BulLltonT.CLILEKkK 

TextBox1l.TexlL = "" 
TextBoxY.TexlL = "" 
TextLBoxYT. Text ۰ 
TextBox. TexlL = "" 
TexLBoxo.TexlL = "" 
TextBox1.TexlL = "" 
LabelY.Text = "" 
LabelA.Text = "" 
Label1.Texlt = "" 
TextBox. FoCUsS () 

EAC Sub 


PEIVAES S0 BULCLONY CLIEK(BYVAL Sender A5 SYSLEM:.ODJECE,. BENal € 48 
System.EventArgs) Handles ButtonY.Cll1ck 
Dim d1, dY As Integer 
Dim m1, mY As Integer 
Dim y1, yY As Integer 


LL TEXLEOL LIORT = FFE OE TESTE IGET SS FE OF TECEBOIT TOLL SS FFE TEST DOKC LTO = 
FF UF TOSTEOKOL ICL E TF OTE TEOCTEOTLlIOKL 3S HE. Thon 
MsgBox ("Enter Date In all Texts") 
EXILE Sub 
EN TLL 
Oy = VAL (TER LBO YT .TEST 
QY = Va L (TEXTBOX. Tex 


mY = Val (TextBoxo. Text 
y١ Val (TextBoxY. Text 
yY = Val (TextBox1. Text 
TF vT € YF Then 
MsgBox ("Enter the True Date") 
ERLE Cub 
ENG JL 
If d1 < dY Then 
AY = JY FE YF 


( 
( 
MY = Va Ll (TOESLEBORY . TEX 
( 
( 


) 
) 
) 
) 
) 
) 


MI = mi = 1 
ERMC LIL 
If mI < mY Then 
mI = mı + 1۲ 
yJ) = y1 = 1 
ERC. LL 


LabélY. lx = QA = Of 

LabelA.Text = mI = mr 

Label41. Text ت ل‎ 
Enid Sub 


PrIvVaTE SU FOEMY. LOSI (BYVAL SENIOEE &S SYSTEM. ODJECE, BYVAL € AS SYSTOeM.EVERNEArFGS) 
Handles MyBase.Load 
TextBoxt.FoCcus () 
ENC Sub 


ê 2 ¥ 


mY ¢ 


ByVal e As 


ByVal e As 


ByVal e As 


ByVal e As 


ByVal e As 


ByVal e As 


ByVal e As 


ByVal e As 


FELTVALE SUR EBULCEONG CIILCK(BVTEL SENET AE SYSTEM. ODIECE, 
System.EventArgs) Handles Buttono.Click 
Dim x As Integer 
Dim y As Single 
x = TexlLBox1. TexlL 
y = Math.Cos (x) 
LextBOXY . Text = Yy 
EAC Sub 
PELIAS SUD BUCLONE CIICKIEBYTAL SENET. Ag SYSTEMS ODI ECE, 
System.EventArgs) Handles Buttont.Click 
Dim x As Integer 
Dim y As Single 
x = TextLBox1l. TextL 
JE Me 
TEXTEOKYT {TEXT = Yy 


En Sub 
PTI CUS BULCLONT CIICRIBYVUL SENOEE AE SYSTENEODIECE, 
System.EventArgs) Handles BuUlltonYT.CLICkK 
Dim x As Integer 
Dim y As Single 
x = TexlLBox1l. Text 
y Math. Tan (x) 
IECEBOKT LET Sy 
ENG OuUb 
PEI VATS EUG BUCTONY CLILICKEIEY SL CONOET EE SYSTEM OD ECL, 
SVSEémM. EVEnNTArEGS) HonNCLléS BULLION. CLIILCGK 
Dim x As Integer 
Dim y As Single 
x = TexlLBox1. TexL 
y= Math:Tanh (x) 
LOGXLBOXT TOK 32 vy 
ENU. SUB 
PrEIVaAEES Cub BUCEODT CIICR(BYTAL Sender A SYSTEM. ObDTECE, 
System. EventArgs) Handles ButtonY.Click 
Dim x As Integer 
Dim y As Single 
Dim d As Integer 
x = TexlLBox1l.TexlL 
0 1160160 "اال اللق الاس افخل و اك نى‎ 
y Math. Pow (d, x) 
LEXZEBOKT Al 7 vy 
End Sub 
FEIVAEG SUB BULCEONS CLICE(ETEL SENET AE SVEN. OBIECE, 
System.EventArgs) Handles ButtonA.Click 
Dim x As Integer 
Dim y As Single 
x = TexlLBox1. TexlL 
y = Math. Log (x) 
LEXLTBOKYT. Text = Yy 
ENO Sub 
PEIVIES SUD BULCLODNY CLICK (BVTAL Soner AF SYSTEM.OBDIECE, 
System.EventArgs) Hahdles ButtonY.CLIcCk 
Dim x As Integer 
Dim y As Single 
x = TexlLBox1l.TexlL 
y Math.Sinh (x) 
IGXLBOKT.LOERL Tv 
ENC Sub 
EFFIVSEE SUG EULCLONICLLCER(EVTAL SENOEFE AE SYSLOMSODTECE, 
SYSTEM. EVENTArGS) ‘BHandlés BULEON1.CIIGK 
Dim x As Integer 
Dim y As Single 
x = TexlLBox1. TexlL 
yV. = Math .COSBD(S) 


mY o 


LEX EBOKT ILE TT Sy 
End Sub 
PrLVaTEG SUD BULCEONT CIEE (EBVTEAL SENOET AE SYELEML ODI ECE, BEL € 
SVSEémMm.EVEnNnTArFGS) Holhdlés BULIEONT.CLILEK 
Dim x As Integer 
Dim y As Single 
x = TexltLBox1. TexlL 
y Math. SqETE (x) 
[OXLEBOKT. TOLL 2V 
ENCU SUB 
ELrIVaEe Cub EUCLONS* GCLICEIBVVIAL SEnIEE A8 SYVSLCEM:OD ECL, BYVAL © A8 
System.EventArgs) Handles ButtonY*.CIilick 
TextBox1l.TexlL = "" 
TextBoxY.Text = "" 


Da ğ Ey Z Yr A 


FEI VELE SUD TNE LOO BV SL SENCEE ME SISTEM ODT ECE, BEOVOL © KE SYSTEM. EVENLATFGS) 
Handles MyBase.Load 
TEX LEORY TEXT = MY. COMPULEFE. TREO. ATVaALLaADLEVILETUALMEMOEY 
TextEOXY.TeKLÎ = MyY.COMPpULEF.InfO-AvalLlLlablePhvys1Ca LMEemMmOoOrYy 
TextBoxYT".Text = My.Computer.Info.TotalVirtualMemory 
TextBoxt.Text = My.Computer.Info.TotalPhysicalMemory 
TeXTBOXGZTEXTE = ME. COMPDUEEFE : INEO. OSPLSLCEOEM 
TextBox1.Text = My.Computer. Info. OSFullIName 
EA SUS 


Private Sub: Form) LOoad(ByYVal sender 43 


System.Object, ByVal e As System.EventArgs) للقراءة فا‎ ٠ 
Handles MyBase.Load 
RadioButtonYT.Checked = True 
لٹ ب‎ 
ENO SUB E 
FFI SUG BULCLONT CILCE\BYTTaL Sender 8 
System.Object, ByVal e As System.EventArgs) وا‎ 9 


Handlês. BüUtLonYT.CLIICK 
lf RadioButton1l.Checked Then 
SetAttr (OpenFi1leDialog1.FileName, 0 ك‎ 
FileAttribute. ReadOnly) 
Elself RadioButtonY.Checked Then 
SetAttr (OpenFileDialog1.FileName, 
FileAttribute.Hidden) 
Elself RadioButtonT.Checked Then 
SetAttr (OpenFileDialog1.FileName, 
FileAttribute.Normal) 
Elself RadioButtonst.Checked Then 


Dim a As FileAttribute = (FlileAttribute.ReadOnly + Fi1leAttribute.Hidden) 
SetAttr (OpenFileDialog1.FileName, a) 
ENC LL 
ERC Sub 


PII SUG BEULCEODNS CILCR(BS TAL SENE AE SYSEEONIODTECE, BAL CE 
System.EventArgs) Hahdles Button)! «Click 
OpenFileDialogl.ShowDialog () 
TextBox)l.Text = OpenFileDlialog1.FileName 
ENCA. SUD 


FIVE SUG BE LCONT CLICKBY EL Senor RE SVETEMEODIECE, BYVSL € AE SUSTEMLEVENTAFEGS) 
HRNULES BULCEONT sS CLICK 
End 
EH Sub 
PFIVIES Up BUlLonY CLLIER(BYTAL Sender AB SYSLem.Ob ject, EAL e 24 
System.EventArgs) Handles ButtonY.Click 
TextBox1l.TexlL = "" 


۲ "| 


TextBoxY.TexlL = "" 
TextBoxY.TexlL = "" 
TextBoxt.TexlL = "" 
TexLBoxo.TexlL = "" 
TextBox1.TexlL = "" 
LabelY.Texlt = "" 
Label^. Text 
Label1.Text = "" 
TextBoxt.FoCUusS () 

EN. Sub 

PEIVAEe GUD EUCLONY CLICK (BYVAL SEnler AS SYSTEM. ODTECE, Bal e 

System.EventArgs) Handles Button1l.Click 

Dim d1, dYf As Integer 
Dim m1, mY As Integer 
Dim y1, yY As Integer 


LT TOXLEOLI GS IOLTLT = FF OFT TELTIROKT lC 2S FF OC ICL EBONTL.lOIL SS O ET 
TEXTBOX TORT = HE OE TELTBOROL TER 3 TN OY TEKI BOT TEORT = FF Than 
MsgBox ("Enter Date In all Texts") 
EXLE Sub 
EN LE 
GY =  VaL (LEKLTBOSY Tes 


( ) 
dY = Val (TextBox. Text) 
mY = Val (TextBoxY. Text) 
mY = Val (TextBoxo.Text) 
y1 = Val (TextBoxY. Text) 
yY = Val (TextBox1. Text) 
TE oY € TY Tha 
MsgBox ("Enter the True Date") 
EXILE Sub 

ENG LL 

LIL UY < OFT Then 
AY 5Q FF FT 


mM = mi = 1 
ENO LL 
If mI < mY Then 
mI = mı + 1۲ 
yJ = y1 = 1 
BIC TIF 


LabêlY¥. Text = dY = Of 

LabêelA. Text = MY = MT 

Label41. Text ا‎ = 
End. Sub 


FFIVaAES SUBD Form LOSI (BYYAL SENOEE A SYSTEM. ODI ECL, EVAL .€© KS SYSTEM. EVENTAEGS) 
Handles MyBase. Load 
TextBOXS . FOCUS () 
EMCO Sub 


mm ۲ / 


FPIVAES SUD DEIVEDLSTEBOXKY SeLlECEEOLIROEXCHENGEd (BYVAL Sener AS SVSLEM.OBDJEECL, Bal 
e As System.EventArgs) Handles DrivelistBox1l.SelectedIndexChanged 
DIFELSLEOXY APACER = DEIVELISTEOST.DEIVE 
ENO Sub 


EFFI CUD DIEFLISTEBORY SElECEOULNOESCNANITEG (BY UEL SENIEE. KS SYSTEM. ODIECT;, EVYSL € 
As System.EventArgs) Handles 


DIFLDLSEEONI.SELECLéEdINIEeSChHangêd Forml 
FLLELLSLBOXY .PalLh = DILFLILSLTBOXY Path 
ENQA Sub 
PFIVaALE GUD EFLLeLLSEBOXY MOUSECLILEK (BYVAL E E: 
sérider As Object, ByVal eé A_8 tJ ¥b.net 
System.Windows.Forms.MouseEventArgs) Handles A Yîsual Studio 2 
FileLlListBox)l.MouseClick ‘JJ Projects 
TF DIrTLISEBOoRT PLE. <S. TE Then tl show picture 
TextBox) .Text = DirlListBox\.Path + "\" aT 
E FLLEDLSLBORY. FLLENAME î Debug 
Else 
TEXTBOOK Y.TEKL = DIFLISTBORYI.PaALh FF ® 
+ FilelistBox)\.FileName 
EHQ LE 
PictureBox1. ImageLlocation = TextBox1l. Text 


PictureBox1. Show () 
EN. Sub 


mm ۲ \ = 


class ORE rêbe 
e Ãešlass Ğ formê 2š) REECE 


=| MY ProjecE 
=| Lormmpuker ,¥Û computer.vb 


4 
mm wm 


ZZ /AbDİÃÖ& Gk Ùt Ã FLöĞo¥ dg ãRhhacbelass Z* Û 
:ş E a 5 
FODIILE Class FoEM 


FFIVSEE SU BELNEOCOMARNCAEONS  CLLER(BVTIL SENIEE AS SYSTEM ODI ECE, BFL © A 
System.EventArgs) Handles Btnrecommandatons.Click 
Dim objJcomp As New Computer 


ob]comp.processorname = Txtprocessorname. Text 
ob] comp .processorspéed = TxlÙODrFOCEeSSOrspêed. Text 
ob jJcomp. Fram = Txtram. Text 


OD J COMB. CISGeed = TxXICDSpeêed. Text 
'cCaLl thé Focommenda tion Method 


TRLEFECOMMENIALLORNS. TORE = CDICOMDLFECOMMERNCACLIOROD ICOM DEOCESSOFhNaMEe, 
objcomp.processorspeed, ob]jcomp.ram, objcomp.cdspeed) 
EMa Sub 


mm mm 
7 


mm HHO FS gs 
(computer.vb )@ class ÖĞErO Ap 
PUbDLIC CLaSS Computer 


Dim varpname, varpspeed, varram, varcdspeed As String 


Property processorname () As String 
GEE 
processorname = varpname 
End Get 
Set (ByVal value As String) 
varpname = value 
End Set 


End PFIFODErFTY 
Property processorspeed() As String 
GEL 
processorspeed = varpspeed 
End Get 
Set (ByVal value As String) 
varpspeed = value 


End Sel 
Enid. PFFODEETY 
FropertIvy ram(). &8 String 
(Gê 
ram = varram 
End Get 
Set (ByVal value As String) 
varram = value 
End Set 
End Property 
Property cdspeed() As String 
OE 
cdspeed = varcdspeed 
End Get 
Set (ByVal value As String) 
varcdspeed = value 
End Set 
End. PEFOBETIEVY 


e ٣ س ۾‎ 


ByVal pspeed As 


Public Overridable Function recommendation (ByVal pname As String, 


ByVal vram As String, ByVal vcdspeed As String) 


Dim result As String 
"the Given specificationare:" 


Chr(1T) & Chr(1°) 


"processor name:" & pname 
CIE CE CONE) 
"processor speed:" & pspeed 
Chr(1T) & Chr(1°) 

"ram:" & ram 


CEFF OT € CBE (O) 

"CDspeed:" & cdspeed 

CEE OT & CEES) 

"we recommends windows xp !!" 
CHET. € CHES) 

"HabOY WOFKING lI 


GFOLESSOF TIAMIE 


processor speed 


Û Rom speed 


Recommend operating s¥ster 


Recamrmedakians 


mm, 


& 


MMAR RHNRHRRH RM 


EFéESULE 
result 
EESULE 
result 
LESULE 
result 
result 
TESULE 
result 
FESULE 
result 
result 


result 
result 
result 
a > Ee 
result 
result 
result 
result 
result 
result 
result 
result 
FéESULE 


Return result 


Enil FURNSETLGH 


End Class 


اوامر فتح مرع حواري للطباعه 
ديالو ج الطباعهة 
1-ديالو ج إعداد الصفحه قبل الطباعه 
Jã‌ۃp‏ بارج jڇر‏ nټBuıt‏ ڍ PageSetupDialog‏ 


الگرد 
قم بالضغط على الفورم واکتب السطر التالی فی السطر الأول رقبل ٥D cا٥ 2٣٤٥٣‏ ر ٣٥٤٣ھ‏ عاع ع0 هنا التی ھی ووواC‏ عااطاںا۴ یعنی فی 
General‏ 

شاد 


Imports System.Drawing.Printing 


فی الزر ٤٤0٣‏ ا8 قم بكتابة التالى 
EE‏ 


PageSetupDialog1.Document = New PrintDocurment 
If PageSetupDialog1.ShowDialog) = Windows.Forms.DialogResult.OK Then 
End If 


Print Dialog اذأو چ أطڊاۃ+‎ -2 
PrintDocument 4 PrintDialog s Buon ڇj‎ چاړذأlې كم‎ 


الگوذ 
قم بالضغط على الفورم واكتب السطر التالى في السطر الأول وقبل رأة ةعاءم٥O‏ 
تود 


Imports System.Drawing.Printing 


على الزڑزر Button‏ 
توذ: 


If PrintDialog1.ShowDialogl}) = Windows.Forms.DialogResult. OK Then 
PrintDocument1.Print() 
End If 


3-دبائو ج معاينة الصفده فۈېبJ‏ Ûطبlغ“ Print Pıivew‏ 
ۉp‏ ڊlڈرIج‏ jڇ PrintPreviewDialog s4 Button‏ 
قم بكتابه هذا الگرذ فی )اج6 

شاد 


If PrintPreviewDialog1.ShowDialog) = Windows.Forms.DialogResult.Ok Then 
PrintPreviewDialog1.Document.Printi) 
End If 


mm | 


(j hii riğf Then FP HÊAAŞP rps LOHaCÛP 2¥ GE 


j ãZF items 24 Ù8 ãist box gš ÖN dştextbox ËşLabel ËşList box ÃĞQ& dby Û rëpë 


4 


التلبعو 
I1lllllllllllllll‏ 


Public Class Form! 


PEI SUD LISEBOK CIICKIBYUOL SENOEE AE UO ECL, BY GL €6 KE SVSTEOMLEVENLATOS) 
Haldlêaa LISLTBOS.CLILEK 


lf ListBox1l.SelectedlIndex = ‘ Then 
TexlLBoxIl.TexlL = "‘1‘o0o0o0o0o0o0o0"™ 
IERTBONT SL LIOKL = FSET 

ENG LI 

lf ListBox1l.SelectedlIndex = 1 Then 
TexlLBoxIl.TexlL = "‘1‘o0o0o0000o0™" 
LTEXLEORT LER. 3 FSS 

ENG 1LL 

lf ListBox1l.SelectedlIndex = YY Then 
TexlLBoxIl.TexlL = "‘1YToo0o0o0o0fo™" 
TEXLEBOLT TERT S2 NT 

ENC. IF 


ER SUD 


mm Y mm 


ÖF Aris 0 Help Files gE E NGONZ ÖZ 
cb YEQ KEG j & FDBLOFÜR /E Yak; ãutlthatÖcBéë) rêê Help ğ Aã ر‎ Û 
: Helpğ Ale 
DEY šË LA 
Help Compiler BRA Editor Bëš/ŞIš 
j rëëdûã ch/éğ U% éhGr5ÖKF* sC Editors J re 
MS yHÊ@aRADÖAK+ Web Page ÖÖ U ğ AğS/O FAÃ ıs Word MITML Editor 
yHËAĞÖK* ARA{ÛHTML ğ AMLIEÖGa ÊRD Z ë AŞ Kit šã Notepad şšrontPage 


Visual Studio. Net IDE‏ ا 
MS HTM Help Workshop ûj rBşiê@:O/s Help Compiler BğADš zê ğ KéêÖ AAJ‏ 


AUN mW‏ س 


EDS UEFREE dsKzêRiFIRTZ db) rts 


yO cis TEZÎ Help. chm 7% pajê; HzÃe/êyë; ESCompiling يخ‎ فp‎ 


mm mm mm 7 


.Z Yk Bê /j rO a Û ¥ e 
: ÖFAeHelp ZYiK:BêËZ ŠÖ 


: j rëihblelp HANK SBdêpÛTn dh ÊcèÃı f ŞÖ/K 
Help Help pK OchSystem.Diagnostics.Process.Start yHÊQAbBBULS :5ş i 


ST UNL N mm 4 


KOHelp ğ AGRqmÛU aYÜcğUé Oëj al i5aãş DSGĞÎÛÎ pro GOs KAR êContents 
:Application StartPath 


Public Class FormC 


Private Sub ContentsToolStripMenul tem _ Click( ByVal sender As System.Obj ect, ByVal e As 
System.EventArgs) Handles ContentsToolStripMenul tem.Click 


System.Diagnostics.Process.Start( Application.StartupPath & '""\ printing.chnm") 
End Sub 


End Class 


Application KOŞSEGZ YSRcQPHelp Class yÊĞqêrs Gê CRI RAS : HECE 
ğO5Z KEzLAÖ Help Z¥ê Ãêgû ndex ö Aã YOS HÊAêL GStartupPath 


Private Sub ContentsToolStripMenul tem _ Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles ContentsToolStripMenul tem.Click 
Help.ShowHelp(Me, Application.StartupPath & '"\ printing.chnn") 
End Sub 


Private Sub I ndexToolStripMenul tem _ Click( ByVal sender As System.Obj ect, ByVal e As System.EventArgs) 
Handles I ndexToolStripMenul tem.Click 
Help.ShowHelpl ndex(Me, Application.StartupPath & '""\ printing.chm'") 
End Sub 
End Class 


mY mm 


alan ST UNL IN, mm 


BãToolbox chéşîatak Gk ëêRUış Help Provider Control FË HÊASÖK : EEK : GECE 


4 R= r7 


A qÖöoGÊk ls g§Rtağ Ano ARN3ÊAadS Properties jè diqşÃîadakiş YDLÊRayzS 

r Ğ¥cg HelpNameSpace Property tk oşÃataği jè Context-sensitive help 
hã daî Gê /ARGKtez¥ ûf Dynamically BÜÛRÛOĞEAı ch r ÛbÃã@ éB3OqÜÛKK 

ÖfApEÊĞ exû GHCaatš öêةADE‎ FDAWEZ Ê i 3َ raiyéûpProperties Window 


File Edit Yiew Project Euld Debug Data Format Tools Test Analyze Window Help 


1” d7 2 ج > ل > 4 3ت يه‎ j Debug + Any CPU > 
ا‎ Farmi. Yb "Form. +b [Design]" 

1 = 

1 

Solution ‘HelpFilesE lE' t1 

1 olution HelpFilesExarnple' (1 proje 
Fle Edit ۳ ٤ ااا‎ 
BM: HelpFilesExample 

=A) MY Prajert 

. =| Formlıyb 

ا 

1 

=| earch 

2 

About...‏ ك 


= MenuSstripl (FI HelpProvider1 
ution Explorer Blass ie 


PUDLLES CLISSS FOEM 
PrFiVaTe SU CONEORTCOTOSLSLEILDMEDNUL TOM CLICKEE Gonder 
System.Object, ByVal e As System.EventArgs) Handles 
CONCERTS TOOLSLELOMENUTI EE. CLICK 
Help.ShowHelp (Me, Application.StartupPath & "\printing.chm™") 
ERG SU 
FELAT OB IOOONTOOL EFI ONLI CLICKEE VEL SENIEE E 
System.Object, ByVal e As System.EventArgs) Handles 
LHOEXTOCLSEEIDMENULTEM.CLLCK 
Hélpb. SHOWHEILD (Me, AGDITICAatION. STaAEFLUDPSLh € T\PEINEIRNG CAM") 
ENO -SUb 


mY ¢ 


VB.net VB.net Zğã AVîe 

U AMSgSéL A 

BIURMY A3 XCBEYGBI AKêcDBZÎ Hé do YN cDZHÛKHÖkU Database j Aëg J AKëgÊk 
1 në î A EEE UA KY rêê ADKYaĞAÃ MNE ARBaeongÊ t aA şû 
AAA 3š QbbhAK raj a 3 ö%Ş Kzè AOE ARbDAS SQL Server j rkkpPAccess 
OCS Database Management Systems (DBMS) "Sy AHRÊEaEGBUE Td ( rG? EÊ 
fp EUG HRLORZ N) FEED: Û1 ARSFEaEOA qo BT aI êê ã GÊaÖHn ÛjÊÊj ã 

o. _ .AFEGEEZA NZ GBI AREK FORDER 

Hê XE 3 ARES A FZ Ao Û KÊ AF UFROMEYGS AREGSêt pp ATS 

Structured "4 6AGTOr a) yYÊGĞIĞHDEY aK Aik UB AE AAORMARA ERM GÊAÛ 

. ARVÊaeZ ã AKEQAÊt OJÊã ŞÃ# A Ğkş Query Language (SQL) 


VB.net @aeccess Ûr 
: HOS Ag öYî dalÃ LÊŞ 
E 
ozdênk BG product @êdyÖk&kpharmacy bLêAğ AëgÊR5Î df access .C 


SEER EA KEES EE 
al 


hohna °٤٦ cairo e ۳ کے‎ ۰۹٩ 
Data AGREES OUYÊ ÃQadd new item GY project Bakdrşvb. net Gğ.C 
form wizard 


LêãğËŞ Next Û UE Z yÃÊĞÊÈ B@BData Form Wizard J AfESéêerZAMANA.D 
Pharm QOR§ Data set 4ك‎ 
Microsoft jet dé 3Ê provider /ERkdş ADDO HNew Connection Û8 Û.d' 
OLE DB Provider 


A îcêêkya j ABER Connection FARGO .D 
oicêt®q Test Connection Ù8 Û.d 


NextZProduct oŞÖZ5% AE /EKYGoOYÊEĞHÊ dS FrDZécyÊãê êê k .ÊË 


Next Z A5 /EkYagÊsê# .€ 
BLK PA; J DEP Û Gsingle record in individual controls GOcCESÎ qm.E 
Agi Î\ (i BBDAGE tS S#Finish ZL 
dgi SRRDRKEEEÊS ¢ DS deri ATS} ARES) USGr 5] në .( 
Data BBtart up Object KZProperties ZSolution Explorer QZ t ŞA têkêën $ 
formC 


ğ È5 /ëj AB UD Load êÛ# Û 
ت‎ AaÛê Zğ ABD .& 
DataFOoOrnil 
lIpdate 


Lan cعاأ ےر‎ 
Dh praductexpire [2/32003 12:00:00 


۱ manufacture [sao 0 produıctname [hnakna 
| productdale [2/32000 12:00:00 praoductserlal EAE 

<4 mH 1 of 2 : ود‎ 

a la Delete LanzEel 


: BÖ) ripoOGLOORDA 5 A Ûğ rişëj UB? LEOGZABUHAE .© 


DG FE. Zh FDEETOSÛ eÖK ãDUpdate B?¥ URGE r Nk AH; bG .D 
. SEA Ê KDZAK KK AOD IkUOForm _Load RDEZ 
: BÖ SBS dl gKHhOYDIAQG êa BGR ÛÖÛۂK‎ .Ğî 
XÈ data grid kLèdJ .C 
ĞÖQ OLEDBadapter gË ã &Ë êtn/FBÛ .ë 
KNNext Û8 ÙJ AHBgERLSHEZÊ ZAM ۆ.‎ 
Productname O MI (F2 3 § oŞÊğLèl Zquery Builder 2% US Û .d' 
Finish ZOk ZID 


٣ | 


CB Z Kêş generate dataset ÃQg OLEDBadapter 2¥ dj RU8 Û.D 
5A 
Enable=true KBAĞUÊ RK SRP ¥ Timer F aEGEUS MNE BSODDK .CE 
aYhëÊZ iş Timer o ãZ A DSKO&GŠ Interval=( 


PIIVATE SUD TIMETY TICKETS. SENET AE CVT EL ODI ECL, BIEL € 
As System.EventArgs) Handles TimerIl.Tick 
lf Me.Opacity >= 1 Then Me.Timer1l.StoPp () 
Me.Opaclty += ‘. ‘o 
BHC SUD 
TELAT Ub BULLCON CIICRBVTIL SENET A SVT EM BDIECE, 
ByVal e As System.EventArgs) Handles Button1l.Click 
lf Me.Opacity >= 1 Then Me.TimerIl.Start () 
Me. OpacCIlLy = 1 
EDO 
ENO SUD 


Date time Picker gin aA@ã KANT ext box J rnkîBÃÎ ONS 0 E O3 .6 
#Ê Product o¥ÊêAINÉ URGE Text ÃÛX KEYa Data Binding (BÃãktÛ@ 


mm " / mı 


Add new @¥Y project Bk GISÖGE Crystal report 0# ĞÃ e ÎRADÊ dû4 .€ 
Crystal report FHOONEDG, #HOUYÊ ÖQitem 
Register later @#Ê register ĞpÊĞGÖAVEÛK Crystal report ZMANÉ .C 
OĞKEBGHAKEBCOS Aã ۆ.‎ 
OLE DB /QûaAvailable sources Mad 
ADO 


ULE DB YADD] J 4 


| STANT UREPOLIEXDETL 


Data | Fields | Group | Total | Top N | Lhart | Select | Style | 


Lhoansze data to report on. fou can choose multiple tables and add indexes. 


ûwallable data sources: Tables in report: 


F-IA Project Data 
+ OLE DE [4P0] 
+1 ODEC (RDO) 
+: Database Files 


ar from the list or select a data link. file. 


MediaLatalogDB DLE DE Provider 
MediaLatalogMergedDE DLE DE Prowider 
Medialatalogw#febDB DOLE DE Froyider 


IIIS ICEL #.IILILE LIO TIUTIOUET 
ا‎ L_I Lı 


Microsoft ULE DBE Provider for Analysis Ser 
Microsoft ULE DBE Provider For Data Mining 
Microsoft ILE DE Provider for DTS Packagı 
Microsoft ILE DE Provider for lInde=ing S5 Er 
a MILF DB Frowider for Intarriet ا‎ ۳ 

1 1 | 


Insert Table LWelete [able 


Blank Report Help 4 Back 


ME E EARAN) 
Connection Information File: 3 | 
Provide necessary Information to log on toa fhe chosen data source. 


Database Mame: | [E teb.nekhmy workkpharmnacy.mdb اا‎ 


LIser IU: [admin 


Password: ooo SS x و‎ Vv . F7 O 
Finish U8 U Fea AHogERkLêdağ .D 


Jet System Uatabaze: | E | 
AN AAI m—- 


ال — Z1V -. 7 =v” nA 7Z as‏ م ا 
nm has Akyaxiëkê HEHE .d‏ 
J‏ 


a ER O Êêöroup By 3EOĞ3 ÖKF .Ë 
4 Back | emt x ! Finish | Larncel | Help | = 5 
(Min-max-sum... summarize OANG3 OK .€ 


2¥ AF ş Crystal report Viewer Gš ã3 3 ayê cdhÃQğ Frormë /ADZéertÃ ke .& 
. CEO GEL DS dt i BASECESê š4 


FPIVOTLE FOb FOE) DOU (BYTESL GENIET AE SVE TEM. ODES, EAL CE 
System.EventArgs) Handles MyBase.Load 
CrystalReportViewerاl‎ .ReportSource = New CrystalReportا‎ () 
EHO. Sub 
ERG TClaSS 


mm " \ = 


ö È ¢ ã MData formCi§ ãšé/AZ ã GFKEDAS Aj ANDES WSK RUêBÛÖۂX‎ .& 


:BRRKOSAA Fp AKS 


Dim form As New Form! () tE3êLëcëzEKAFEANN 
FormC. Show () 


Me.Hide () 


چ چن 


مثال (واجه التطبيق) لجعل نماذج المشرو ع ۳ ض باسلوب و اجه متعددۂ المnننداث Multiple Document (MDI)‏ 


۴ عا نض بط الخاصبة lsmdiLontaner True‏ لثمو د ج الأب» و عند عرض النموذج الأبن من خال النموذج الأب ایند 


له خاصية الأب 101۴211 وما بلى: Dim frm As New Form2‏ 
أ للنمرذع الذى ستعرض هو التمرذج الجاJ‏ ' frmn.MdiParent = Me‏ 
frm. Show [|‏ 


بينما الواجهة الأفثراضية لنماذ ج التطبيق هى 551 .(Sıngle Documeıt Iıterace)‏ 
مثال [التموذج المشروط) لعرض نموذج بشكل مشروط بمعئى لا يمكن الأستمرار العمل بالئماذج الأخرى بالتطييق ما 3 
يثم الأثتهاء من العمل بالنموذج المشروط وإغلاقة فنستخدم الأسلوب اس0ا ٠‏ ويجب أن لا يكون نموذج ابن» بمعنى أن 
ذج المشروط يجب أن بگون 1011۳0 501 . ویسی عند إذ أةله1 (مشروط). أما عند العرض باستخدام الأسلوب س0ا 
سی سی لوب ل لعرض ب عأعل1)0 . وعرض اثموذج مشروطا يختلف عن مفهوم عرض النموذج في المقدمة الذي تتحكم به 
لخا ب Taras‏ وهى خاصية منطقية عند ضبطها على ع1 تجعل النموذج فى معدمة النماذج ولكن يمكن التعامل مع 


بيه ماذچ الئطبية على لر غم و و لة. 


- ۳ j rp S3 


vo, ¬ Êk ٤ 6 Tv V/ _Z KSLEO 
مراف ياء‎ 4j × tA TIEEEA = 
*BPassword char BD 3# Text Aa 


PELE SU BULCLONY CLIICKEIBYVUIL SENIETE AE CVSTLELOD I ECE, BIL E aE 
System.EventArgs) Handles ButtonIl.Click 
Const pwd As String = "ali1" 
lf TextLBoxl.Text = pwd Then 
Dim dataform! As New DataF'ormı! () 
dataform)1. Show () 
Me.Hide () 
Else 
MSGBOX (" mi 
ENRQO IF 
ERG SUD 
FEIT E TUB BULCTONY CLICK BTL SENOET AFT SOTE. OB ECE, BALES 
SVSLEM. EVENLAEGS) BHaNCOLGS BULLONTSCLICK 
End 
ENQA SUb 


ا 


("الدخول لك مصرح غير 


س ې ٣‏ س 
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VB.net @éBQL express Ûr RIE 


Microsoft SQL Server And Microsoft Access 


Mlicrosoft ACCESS Microsoft SQL Seryer الصيزة‎ 


عاد انجداو_ | 2147403847 کا می۲ یت 
eT‏ 


الذصات فدم مع أعان 2000 سول ٠‏ سد Epos e‏ 
0y:‏ 


دتم انظمة ۴ 


اصلاح خشاكل فاعدة | اعادة قاعدة الى اك وكت | نند على ا 


البياناب 
جلد جات حچم اتل من صصیم .اتات ES‏ 
الصستجدصي E SErYE‏ 


ها كص انواع الببانانة النتص يمحن التعاهل معطا كص SQL SERVER 2005 d1‏ 


ا ا 
وهو عبارة عن توع تجصل حمل السانات تخقبل عدد مجن من الحروكا , 
char‏ 1 الى 8000 جرف 
ويحجز نفس الخانات قى الذاكرة , حتى وإت أدخل إليها أقل . 


وهو أيضا باحذ جروق ولكن حروف من النوع عل0ءا١لا‏ أي بمكنة تتزين 
1 إلى 4000 جرف جروف كل اللغات وليس اللإتجليزية فغط , ولكن يحمل نخس عيب ال 
Char‏ . 
نطلق عليه نوع مطاطاك خير الحجم المتزن علق جسب عدد الحروف 
المخزنة فيه : ولگن أقصى عدد جروق یاحده هو ها حددته أنت . 
حدق انك کتیت بالشكل .. (3۳)8000آ٣د»‏ .. سس لو د خلت متلا كلمة 
1 الى 8000 جرف مكونة من 10 ”حروقف ققط قسستزنها قك مات بتسع ل 10 ”حروق ققط 


ولس 8000 . 


TTR FY Ta 
ولكن تتزين هذا الذم الهائتل من السانات داخل خلية ساتاتك ومع‎ 
إستخدامه بكثّرة يزيد من بطء قاعدة بياناتك .. لذلك لو ستدخل بيانات‎ 
بحجم کبیر حدا قتصیحتی آن تخزنه فف ملف خارحي اأقضل.‎ 
, متل ال التوع ا×عا بس سحزت حجروف بالتظام عل مع املا‎ 
ستل النوع اکا بالضیط سی مزن قات بالسترگ .. عل الصور والصوت‎ 
.. والاقلام‎ 


هذا التوع بيخزن يانات بالبينرك.. زك الصور والصوت والاقلام . 


نمس النوع 3۴۷١آتا‏ لكن من الفوع المطاطى الذگ بحجز حجم ها يحتويه 


600 بابت ققط .. 


" بوقر مساحة ولكن سرعة العمل معد تكون أقل من ال ۷اا " 
#1 | و1 | بستخدم لنخزین ناتج الحملية البرمجية .. 1 أگ صحبحة ؛ صغر أك خاطئة. 


- 2,147,483,648 إلى +147,483,647 ا رقام صحيحة ولا تقيل الكسور . والنوع ١١آ‏ بياخد مساحة 4 بابت . 
نقبت 2 بلموتا وشو 
متل النوع ۲١آ‏ بالضيط بس بيقيل من أرقام أصةر , 
- 31768 جتى الرقم 32,767 
تة ويداخد مساجة 2 ابت 

. هن الرقم . جتى الرقم 255 وهو أصخر نوع فق أتواع الأعداد الصحيحة وبياخد مساحة 1 نابت‎ a 

الرقم = 775,808 ,9,223,372,036,854 

ھن ر ا وهو أكير نوع قف انواع الأعداد الصجيحة , وبياخد مساحة 8 بات . 

الرقم 9,223,372,036,854,775,807 


بيقيلوا تداك 38 صخر .. تمكن أن يحمل أرقام صحيحة أو تسرية . بس 
شنا أنت بتاخد إلك أنت محتاحة من الرقي. سكف لو تحتاج الرقم يكوت 
decimal‏ ۰ هن الرقع- مكون من 6 خانات للأرقام السحيحة وخانتين للأرقام العشرية .. حتگتى 
OED DOODDOO ODM OOOO DO OOO DODODOODODODDO1‏ 1 
أو نوع بساناتڭ [21)8,2 n‏ تەل . 
نرد مسق ارقش E‏ 
OOO, , OD, 000 DOO Ee‏ 000,000,000 10,0 و تیا تتویل الرقم ارقم ج تیار . دلا : decimal(8,0)‏ کیہ ا 
محتاج رقم مگوت من 8 اتات وندوت سور . 
أو ممگن کله سور .. متلا ([n21)8,8اءعل‏ .. 
الأعداد |إلات ذيها كسور ذقيقة.. ويستخدم قك علوم الملا والحسابات 
هن الرقم = 1.79 أس 308 إلى الرقم 1.79 أس #ثة الدقيقة جدا ؛ 
اشوا 15 رقم قشرگ . ولا تستطيع تحديد عدة الأرقام العضرية .. النوع شو إلاق سطاحها على 
”تسب تسهية الرقم المتيقك .. وساحد جحجم 8 بات 


varbinary 


من الرقم -3.40 أس 38 إلى الرفم 3.40 أس ق3 متل النوع ادها بالضبط بس. 
ویاحد ججم 4 بات . 
بقوة 7 أرقام غقشرية 


من -922,337,203,685,477.5808 جتی وهو النوع المتصص التحامل مع الأموال ,وتحتل مساحة 8 بات , والنوع 
1 
money 922,337,203,685 ,477.5807‏ قىل جتی 4 اتات عشرية ققط . 
TET Ja mane ge TOE le | mna‏ 


تاريخ الأول هن بنابر 1763 وهو المسؤول عن تخزين التاريخ والوقت وهو بقبل وبخزت الساعة 
من ناريخ الأول هن ابر جتی 31 دیسر 
datetinıa‏ 5 : والدقىقة والثانىة والملىنانىة شكذا 00:00:00:000 
ويتتل مساجة 8 نابت 


التاريح مماتل للقتوع عصااعخدل وتزت الساعة والدقيقة ذقط 
amalldatetime‏ من ناريط الأول من بتابر 1900 جتى 6 بونية 2079 
والودت وبتتل مساحة 4 بابت 


قو نوع دید قت ال 2005 إعبمعة أو بقل انات ×٠‏ بقامل تتنستها 
بسانات × ويمكنك العحت تيه عن طريق لخة الإستعلام ذال ال أ١"×‏ الحمسجاة 
«query‏ 
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